-- card: 15518 from stack: in
-- bmap block id: 19069
-- flags: 4000
-- background id: 2605
-- name: Evolution
----- HyperTalk script -----
on mouseUp
  cleanUp
  pass mouseUp
end mouseUp

on showText
  global lastClick
  cleanScreen
  lock screen
  put script of target into temp
  put line 4 of temp into cd fld id 44
  put line 5 to (number of lines of temp) of temp into cd fld "read1"
  show cd fld "read1"
  show cd btn hider
  put number of target into lastClick
  unlock screen
end showText

on sayText
  global lastClick
  cleanScreen
  if MacintalkInstalled() then
    set cursor to 4
    put script of target into temps
    send mouseUp to cd btn (line 4 of temps)
    unlock screen
    sayPhonetic cd fld (line 5 of temps)
    cleanUp
  else
    unlock screen
    cleanUp
    put number of target into lastClick
    answer "MacinTalk must be in your System folder to have the text " &"read to you. " &return &"Please click on the “•”'s, not the buttons."
  end if
end sayText

on cleanUp
  if visible of cd fld id 4 or visible of cd fld id 44 or visible of cd btn id 39 then
    lock screen
    put empty into cd fld id 44
    hide cd fld "Read1"
    hide cd btn "hider"
    put empty into cd fld "Read1"
    unlock screen
  end if
end cleanUp

on openCard
  show cd fld id 44
  pass openCard
end openCard

on closeCard
  cleanUp
  pass closeCard
end closeCard


-- part 4 (field)
-- low flags: 81
-- high flags: 2001
-- rect: left=124 top=139 right=274 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: read1
----- HyperTalk script -----
on mouseUp
  cleanScreen
  cleanUp
end mouseUp


-- part 7 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=193 top=91 right=230 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: speak1


-- part 8 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=92 top=0 right=136 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 8192
-- line height: 12
-- part name: speak3


-- part 9 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=150 top=0 right=128 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 8192
-- line height: 12
-- part name: speak5


-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=102 top=139 right=163 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  sayText
end mouseUp
6
speak1


-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=102 top=166 right=190 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  sayText
end mouseUp
7
speak2


-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=102 top=193 right=217 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  sayText
end mouseUp
8
speak3


-- part 24 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=234 top=0 right=134 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: speak2


-- part 25 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=102 top=220 right=244 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  sayText
end mouseUp
9
speak4


-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=102 top=247 right=271 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  sayText
end mouseUp
10
speak5


-- part 29 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=328 top=2 right=136 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: speak4


-- part 31 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=223 top=21 right=50 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: note1


-- part 32 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=82 top=143 right=159 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: �
----- HyperTalk script -----
on mouseUp
  showText
end mouseUp
     what do men live for?"
Don't you know what you are?  Don't you know what
will live on, providing you fullfill your sexual duties,
long after you have rotted away?  Maybe you should
write this down. You live to move DNA from one
generation to the next.  You are a mobile home for
genes. Call yourself a Winnabego - if that makes you
feel any better.


-- part 33 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=82 top=170 right=186 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: �
----- HyperTalk script -----
on mouseUp
  showText
end mouseUp
     are you serious?"
Allow me to read a statement from your DNA,
“We made machines that survive in water- you call
them fish, and in trees- you call them monkeys,  and
we made machines that will survive, eventually, on
other planets- you call them human.  But we don't
design and we do not even know we exist. We do not
build life forms to survive, life forms are just what
happens when we survive.”


-- part 34 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=82 top=197 right=213 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: �
----- HyperTalk script -----
on mouseUp
  showText
end mouseUp
     why do we have noses instead of snouts?"
Oh, that is the kind of question I like!  Could you watch
a 3-D movie if you had a humungous snout sticking out
between your little eyes?  No.  The view of your eyes
wouldn't overlap enough for 3-D  vision.  The rest is
obvious.  If apes had big snouts they couldn't see the
distances when swinging from branch to branch.
They were no good at chasing women, and so didn't reproduce.


-- part 35 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=82 top=224 right=240 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: �
----- HyperTalk script -----
on mouseUp
  showText
end mouseUp
if survival is all, why is there so much self-sacrifice?"
There is always the possibility of a mutant,
degenerate "do-gooder". We make mistakes. And
sometimes we sacrifice older "mobile homes" for
younger ones, but, the golden rule is, scratch an
altruist, and you get a bleeding hypocrite.


-- part 36 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=82 top=251 right=267 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: �
----- HyperTalk script -----
on mouseUp
  showText
end mouseUp
     why is the world beautiful?"
Get serious, Human.  The world is not beautiful.
Beauty, like all your values, is just a useful
adaptation. You enjoy soft rounded curves like those on
a baby, don't you?  Of course, that is because mother's
who found the curved shapes attractive took better
care of their infants. And those infants survived and
inherited that affinity.


-- part 37 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=439 top=42 right=81 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  popUp "note1"
end mouseUp


-- part 38 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=29 right=64 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  wright
end mouseUp
cd id 23800


-- part 39 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=79 top=138 right=275 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hider
----- HyperTalk script -----
on mouseUp
  global lastClick
  cleanScreen
  lock screen
  cleanUp
  repeat with i = 1 to 10
    if clickLoc() is within rect of cd btn i and i is not lastClick then
      send mouseUp to cd btn i
      exit to hyperCard
    end if
  end repeat
end mouseUp


-- part 44 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=135 top=122 right=140 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DoNotPop


-- part contents for card part 7
----- text -----
DOW4NT YUW NOW1 WHAHT YUW AA3R.  DOW4NT YUW NOW1 WHAHT WIH1L LIH5V AAN, PROHVAY4DIHNX YUW FUHLFIH1L YOHR SEH4KSHYUWUL DUW8TIYZ, LAO1NX AEFTER YUW /HAEV RAA2TIXD AXWEY5.  MEY2B YUW SHUH1D RAY7T DHIH1S DAW7N. YUW3 LIH5V TUW MUW5V DIY EH1N EY5 FRAHM WAH5N JEH1NER1EY5SHUN TUX DHAX NEH1KST.  YUW AA7R AH (MOW7 BAH3L  /HOW5M) FOHR JIY7NZ. KAO4L YOHRSEH1LF AH WIH1NAEBEY9GOW1- IHF DHAET MEY4KS YUW FIY4L EH4NIY BEH1TER. #

-- part contents for card part 8
----- text -----
OW9, DHAET IHZ DHAX KAY5ND AHV KWEH1SCHUN  AY4  LAY7K.  KUH5D YUW WAA1TCH AH (THRIY4 DIY MUW4VIY) IHF  YUW /HAED AH (/HYUW1MAH9NXGAXS) SNAW5T STIH6KIHNX AWT  BEH1TWIY4N YOHR (LIH4TUL AY4Z).  NOW1. DHAX VYUW5 AHV YOHR AY4Z WUH3DNT  OW5VERLAEP EH1NAH5F FOHR  THRIY4  DIY4   VIHZHUN.  DHAX REH1ST IHZ AA1BVIH1AXS.   IHF EY2PS /HAED (BIH1G SNAW5TS) DHEY1 KUH3DNT SIY2 DHAX DIH4STAENSIHZ WEH1N SWIH1NXGIHNX FRAHM BRAE2NCH TUX BRAE8NCH.  DHEY1 WER NOW1 GUH5D AET CHEY2ZIHNX WIH9MEHN, AEND SOW DIH1DNT REH1PROW5DUW4S .  #

-- part contents for card part 9
----- text -----
GEH5T SIY4RIYAX2S.  /HYUW1MAHN .  DHAX WERLD IHZ NAA1T BIY9YUW9TIH1FUHL.     BIY5YUW1TIY, LAY5K AOL YOHR VAEL YUWS, IHZ JAH5ST AH YUW5ZFUHL AEDAEEH1P TEY5SHUN.    YUW EH1NJOY4 (SAO1FT RAW1NDIHD KER1VZ) LAY5K DHOH1Z AAN AH BEY5BIY, DOW4NT YUW.   AO4FKOH1RS, DHAET IHZ BIHKAH1Z MAH5DHERZ /HUW FAW5ND DHAX (KER1VD SHEY2PS) AH3TRAE2KTIH13V TUH5K BEH1TER KEH4R  AHV DHEH2R IH4NFAENTS. AEND DHOH1Z IH4NFAENTS SER1VAY4VD AEND IH4N/HEH4RIHTIXD DHAET AEFIHNIHTIY. #

-- part contents for card part 24
----- text -----
AOLAW1 MIY TUX RIY4D AH STEY2T MEH1NT FRAHM YOHR DIY EH1N EY5. KWOW5T. WIY4 MEY2D MAHSHIY5NZ DHAET SER1VAY2V IHN WAA3TER.  YUW3 KAOL DHEH5M FIH1SH, AEND IHN TRIY4Z.  YUW3 KAOL DHEH5M MAH3NXKIY1Z, AEND WIY4 MEY2D MAHSHIY5NZ DHAET WIH1L SER1VAY2V, IYVEHNCHUWULIY, AAN AH5DHER PLAENEH1TS. YUW4 KAOL DHEH5M /HYUW1MAEN.  BAHT WIY DOW4NT DIH1ZAY4N, AEND WIY DUW NAA3T IYVEHN NOW1 WIY EH4KSIH1ST.  WIY4 DUW NAA1T BIH4LD LAY5F FOHRMZ TUX SER2VAY3V. LAY3F FOHRMZ AAR JAH5ST WHAHT /HAEPEHNZ, WEH5N WIY3 SER2VAY3V.  EH1ND AHV KWOW5T #

-- part contents for card part 29
----- text -----
DHEH1R IHZ AOLWEY5Z DHAX PAA1SIHBIHLIHTIY AHV AH MYUW1TAHNT, (DIH1JEH1NER1EY2T DUWGUH5DER). WIY MEY4K MIH1STEY2KS. AEND SAHMTAY1MZ WIY SAEKRIHFAYS  OH2LDER (MOW7 BAH3L  /HOW5MZ) FOHR YAH2NXER WAH5NZ, BAHT, DHAX GOH5LDAHN RUW1L IHZ , SKRAE5TCH AEN AOLTRUW2IH1ST, AEND YUW GEH5T AH BLIY4DIHNX /HIH9PAA1KRIH4T. #

-- part contents for card part 31
----- text -----
Answers are based on the writings of sociobiologists. Sociobiologists use evolution to explain human behavior.